unit Etiqueta_Matricial;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, QRCtrls, QuickRpt, ExtCtrls;

type
  TfrmEtiqueta_Matricial = class(TForm)
    qr: TQuickRep;
    QRBand1: TQRBand;
    QRDBText1: TQRDBText;
    qrg: TQuickRep;
    dtsprod: TDataSource;
    cdsprod: TClientDataSet;
    cdsprodcod_produto: TStringField;
    cdsproddescricao: TStringField;
    cdsprodComplemento: TStringField;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    cdsprodPreco: TFloatField;
    QRDBText4: TQRDBText;
    procedure QRBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
    pg : integer;
  public
    { Public declarations }
  end;

var
  frmEtiqueta_Matricial: TfrmEtiqueta_Matricial;

implementation

{$R *.dfm}

procedure TfrmEtiqueta_Matricial.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  //QRRDbarra1.Text       := cdsprod.fieldbyname('cod_produto').asstring;
  pg := pg + 1;
end;

end.
